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EDITORIAL, 


I hope you enjoy this bumper issue of Beeblet ~ you should 
easily find a number of things of interest with the range 
of items being published. 


On your behalf, I would like to thank the contributors 
represented in this issue: 


L ES Amon Dunedin 

John Andrew Wellington 
Roger Gonin Dunedin 

Mike Shores Auckland (2) 


For once the number of Wellington contributors are clearly 
outnumbered. I hope that Mike doesn’t mind too much that 
I have published two items from him in the one issue - I! 
decided either/both of them could be of interest to 
readers over Christaas. 


I must draw you attention to the President’s Message on 
page 10, and ask that you get as many of the 
questionnaires enclosed returned as quickly as possible. 
As we approach our Annual General Meeting early next year 
we realise that we need to have as wide a range of views 
and as many ideas as possible. 


For those of you who missed the November issue, I was 
disappointed that there wasn’t sufficient copy to even 
consider making a start. 

On behalf of the National User Group Committee, I wish you 
all a Merry Christmas and a Happy New Year. 


Happy Computing Graham Ellett 


DISCLAIMER 


The views of reviewers, contributors and/or Editorial 
committee are not necessarily shared by 


THE BBC/ACORN COMPUTER USER GROUP NZ INC. 


eee ete ee ees ee eevee ane eevee vreevee ° 
sees eae Ce rr er re rr rr Or rr ee Or ar aP e-a ar-ae ar-a--a 4 
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4A BOBBIN "3S CUBE SIMULATION 


by L. E. S.. Amon, Dunedin. 


THIS PROGRAM REQUIRES COLOUR. 


One of the first major projects undertaken with ry 
original Model B with CFS was a simulation of Rubik’s 
Cube, then all the rage. The program was subsequently 
exported to a friend’s Sanyo 555 (a not-very-IBM- 
compatible MS-DOS machine), and then to my “new” Master 
128 a couple of years ago. At each stage it has been 
tinkered with, but I think that in its present form it 
will still work with the Model B, although I no longer 
have ready access to one on which to try it. The Sanyo 
version differed mainly in allowing more than one slice to 
move in unison, and offering on-screen “help” information. 


If you do not happen to be either a mathematical genius or 
a three-year-old child, a major obstacle to progress with 
this diabolical little problem lies in seeing all the 
“side-effects” of your moves. The only way in which I 
could get anywhere was to start from a “solved” cube and 
proceed like a porcupine making love ~- very carefully. 


Visitors were a menace. They would pick up my solved 
cube, give it a few random twists, look puzzled, give it a 
few more, then they would park it back on the mantlepiece 
and remember that they had promised to look in on someone 
else. If I saw them in timc, they would look very hurt 
when I screamed at them, and leave early anyway. 


Fortunately I had a friend, Ng Chee Chiang, who could 
solve the cube from any position in less than two minutes, 
but I began to become embarrassed at the number of times I 
was asking him to do this. A computer simulation was 
Clearly the answer. Then I saw a 4x4x4 cube and heard of 
a 5x5x5 version, although I never actually saw one. Ng 
Chee Chiang told me that no new mathematics appeared after 
the 4x4x4, but as I was only limited by the computer 
memory, I modified the program to cope with up to 7x7x7 
and down to Ixixl (because I have some Irish ancestry). 


The program is no model for programming style, but has 
acquired a few comments whenever I found myself struggling 
to understand something I had written only a few months 
previously. The system integer variables were extensively 
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used to conserve space in the Model B. If the target 
machine is the Model B, enter it without spaces between 
the line numbers and program statements; setting LISTO7 
will restore readability for debugging. 


When run, the program will ask for the order of cube 
required. Answer 3 for a standard Rubik’s Cube, unless 
you find that too easy, in which case try the maximum of 7 
for a challenge. An answer of 2 will give a 2x2x2 cube, 
solving which is equivalent to getting the corners only 
“right” in the standard case. An answer of tf will give 
you a block which you can turn over to admire the colours 
and practise the commands but there is no challenge in it. 


The command notation is the one used by Ng Chee Chiang, 
and I find it most natural. (It differs from the 
“standard” one devised by Singmaster, but I have seen 
variants of it in print elsewhere). I shall explain it as 
follows: Imagine Cor even place a real cube) on the desk 
in front of you, with one face squarely facing you. This 
is divided into 3 vertical slices which we label from the 
left, 1,2 & 3. Rotating, say, the righthand one up and 
away from you is commanded by typing 3 followed by the 
up-arrow Key. Likewise, the cube is divided into 

three slices parallel to the table surface, labelled 1! at 
the bottom to 3 at the top. Rotating the middle slice 
clockwise about the vertical axis is commanded by 2 


followed by the left-arrow Key. Movement about the 
horizontal axis through you and the cube is commanded by 
the j-kKey for clockwise, and the {-key for 


counterclockwise rotation, with the slice nearest you 
being labelled 1, and the slice furthest from you being 
labelled 3. This notation describes 90 degree turns. 


The three 180 degree turns are denoted by the !, =, and ~ 
Keys. A numeric operand of 0, means turn the whole cube 
in the manner specified. When you feel confident, OS will 
give the entire cube a random shuffle. And good luck to 
you! The commands work in lower case or in “caps lock", so 
the shift key does not have to be used. Invalid commands 


are just ignored. (Dumb insolence rather than error 
processing). 


To test the program, try this sequence (which I call Ng’s 
process) on a 3x3x3 cube: 


3° 3¢ 3v 3¢ 3% 3= 3v 3= 3v 3> 3% 3> 3v 3= 3% 3= 


<>v* represent the four arrows 
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Only two corner cubies should be affected by being 
“twisted” in place and in opposite senses. 


FURTHER READING: 


"Notes on Rubik’s “Magic Cube’, David Singmaster, 
published by the author, 66 Mount View Road, London N4 
4JR, U.K. (5th edition 1980). 


*Metamagical Themas’, Douglas R. Hofstadter, Scientific 
American, pp.14-26, Vol.244 No.3, (March 1981). 


1 REM Rubic’s Cube Simulation 
2 REM Copyright (C) L. E. S. Amon, 1986 
10 REM S% is length of “cuble", O% is max 3rd & 4th index 
of C% 
11 REM P& is “radius” of cube face, Cx is array of cube 
faces 
12 REM I% & J%& are counting indices, usually for X & Y 
dimensions respectively 
30 INPUT “ORDER OF CUBE [1-71°,R% 
40 S%=300/R%: O%=R%-1: PS=O%/2-1 
100 DIM C%(1,2,6,6) 
110 MODE 2 
120 CLS 
125 REM Colour a “solved” cube 
130 FOR I%=0 TO O% 
140 FOR J%=0O TO O% 


150 C%(0,0,1%, 5% =4: C¥C1L,0,1%,5%)=2 
160 C%¥C0O,1,1%,5%)=3: C¥CI1,1,1%, 0%) =7 
170 C%(0O,2,1%,0%)=5: C¥C1,2,1%, 0%) =1 
180 NEXT J% 


190 NEXT I% 
200 PROCCOLOUR 
210 PROCLINE 
220 PRINT TABCO,0) 
240 PRINT“COMMAND? °; 
241 A%=VALCGETS): IF A%>R% THEN 220: 

REM Ignore invalid slices 
242 xFX4,1 
243 PRINT ;A%;:D%=GET 
244 xFX4,0 
245 REM Y% counts quarter turns of slice 
246 Y%=1 

rere RUBIC Contd )>> 
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247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 


259 
264 
265 
266 


269 
270 
290 
320 
390 
393 
394 
395 
400 
410 
420 
430 
435 
440 
450 
460 
470 
480 
490 
500 
505 


510 
520 
600 
790 
795 


.. RUBIC Contd >>> 


IF D%=136 THEN PRINT"< "3: GOTO 264 
IF D%=139 THEN PRINT"* °;: GOTO 264 
IF D&= 93 THEN PRINT") “;: GOTO 264 
Y%=2 
IF D%= 45 THEN PRINT“= 
IF D%= 92 THEN PRINT": 
IF D%&= 94 THEN PRINT’[ 
Y%=3 
IF D%=137 THEN PRINT”> “3: D%=136: GOTO 264 
IF D%=138 THEN PRINT"v %;: D%=139: GOTO 264 
IF D&= 91 THEN PRINT*[ “3: D%=93: GOTO 264 
IF A%x= O AND D%=82 THEN PRINT;"R";: PROCRAND: 
GOTO 395 ; 
GOTO 220: REM Ignore invalid commands 
FOR Z%=1 TO Y% 
IF A&(>O THEN E%X=A%-1:F%=A%~-1 ELSE E%=0:F%=0% 
REM A&%=O => turn entire cube over, Else turn a 
single slice 
FOR B&=E% TO FX 
IF D%=139 THEN PROCUPCB%): GOTO 390 
IF D%=136 THEN PROCLEFT(B%): GOTO 390 
IF D&=93 THEN PROCPLUS(B%): GOTO 390 
NEXT B*% 
NEXT Z% 
PRINT ” . 
PROCCOLOUR 
PROCLINE 
GOTQ220: REM Get another command 
STOP: REM Procedure definitions follow 
DEF PROCUP(M%)> 
Q%=O%-M% 
FOR L%x=0 TO O% 
T%=C%(0,0,0%,L%) 
C%¥(0,0,Q%,L%)=C%C1,1,M%,L%) 
C%¥C1,1,M%,L%3=C%¥C1,0,M%,L%) 
Cx¥C1,0,M%,L%)=C%C(0,1,0%,L%) 
C%(0,1,Q%,L%)=T% 
NEXT L% 
er If M%=O or O% we are rotating a face as well as an 
edge 
IF M&<>0 AND M%<>0% THEN 600 
PROCFACE(C2,M%) 
ENDPROC 
DEF PROCLEFT(CM%) 
Qk&=OX-M%& 


: D%&=136: GOTO 264 
: D%=139: GOTO 264 
: D¥=93: GOTO 264 


ont OO 


we 


Pree RUBIC Contd >>> 
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..... RUBIC Contd >>) 


2170 NEXT J% 

2180 NEXT I% 

2190 ENDPROC 

2200 DEF PROCRAND 

2290 FOR Cx=0 TO 5xR*% 

2300 B%=RND(O%) :D%=RNDC 3): Y%=RNDC3) 
2310 FOR Z%=1 TO Y% 


2320 IF D0%=1 THEN PROCUP(B%) ELSE IF D%=2 THEN 
PROCLEFT(B%) ELSE PROCPLUS(B%) 
2330 NEXT 2% 


2340 NEXT C% 
2350 ENDPROC 


CHRISTMAS STARS 
And, just for Christmas, here is a little program that 
will make you see stars: 


10 MODE 4 

20 FOR I%= {1 TO 9 

30 R1i=16+RNDC32) 

40 R2=RixC1+3*xRNDCL)) 

50 PROC_star(RND(1280),RND(1024),R1,R2,4+RND(6)) 
60 NEXT 

70 END 


90 DEF PROC_star(X%,Y%,R1,R2,N%) 
100 LOCAL A,D,I% 

110 VDU29,X%; Y%; 

{20 MOVE R1,0 

130 A = 0 

140 D = PI/N% 

150 FOR I% = 0 TO N& 

160 A= A + D 

170 DRAW R2xCOSCA),RZ2*xSINCA) 
180 A= A + D 

190 DRAW R1IxCOSCA),RIXxSINCA) 
200 NEXT I% 

210 VDU 26 

220 ENDPROC 


©. 2 4.4,2.0,%.5,0,5,5,%,2,2,¢,9,9,9,9. 9. 9,0,0,5,2,9,0,%,9,9,9,. 0,0. 2,0,9,0,0,0,0,5,2.9,9.2,9,2,0,0,9,.0,%,0,9,.0.5,0,9. 
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ARE WE STILE WANTED? 
by John Andrew 
President 


BBC/Acorn Computer User Group of NZ Inc. 


The membership of the BBC Computer User Group of New 
Zealand continues to fall. This is not causing any 
immediate concern, even financial. Nevertheless, there 
are matters that have caused the Committee to question our 
continued existence. 


The National User Group arose at a time when hardware was 
difficult and costly to obtain. A very useful monthly 
magazine was born to exchange ideas and prornulgate 
information about BBC Microcomputer systems. A large 
number of very useful articles were written by members and 
ail have been very well received. 


With hardware and software more readily available, and 
excellent support being available from a small number of 
local user groups that are now well established, the main 
purpose for the continuation of the National User Group 
has become the production of the magazine. 


Possibly the largest need for the National User Group (in 
producing the magazine) is for users in rural Cand even 
some urban) areas where service and support is not 
adequate. 


The main problem now is that the number of articles being 
produced for the magazine has fallen dramatically, such 
that it is no longer possible to guarantee a monthly 
issue, Although only a handful of authors contribute the 
vast majority of copy for the magazine, the nunaber 
continuing to do so has also reduced significantly. 


Contributors who specialised in providing “Help” for 
questions have lost interest due to lack of support ~- few 
questions; even less feedback. Even questions published 
in the magazine seldom get any response. 


An effort to get contributions from Local User Groups 


started last year has not produced any results in the last 
nine months or so, 
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Offers to publish for special interest groups (eg 
Education) have fallen on deaf ears. 


Advertising is free, private or commercial. It never 
displaces articles. Advertisers only advertise if they 
expect a return - so it’s not difficult to guess how such 
our readers support the advertisers. 


Each magazine issue costs between $600 and $700 and is 
mostly fixed costs (preparation of masters, printing). 
Mailing is the main variable cost and NZ Post have advised 
this will double next year to $200 per month as we nail 
less than 3000 pieces, the new bulk rate rminimun. 


Our funds stand at several thousand dollars and we can 
bite into this account (plus subscriptions) for a year or 
two before the account collapses to Zero and then fold up. 
The hunger of New Zealand Post will only hasten the demise 
of our funds. 


The national committee would particularly like the views 
of members, both past and present as to the future of the 
national group. Options might be: 


continue on with magazines issued two monthly or more 
often if copy was sufficient. 


issue something each month, even if it is only a single 
sheet. When funds run out we could fold up. 


fold up and give the remaining funds to charity. 


The attached questionnaire has been prepared to obtain the 
feelings of the membership, particularly those remote fron 
local user groups. Please fill it in and return to the 
Secretary at PO Box 9592, Wellington. 


Extra copies of the questionnaire have been included for 
passing to past members etc. so that that we can a wider 
range of views. Post all questionnaires back in a single 
envelope, if you wish, to save postage. 


Of course, if you would like to supply additional 
comments, preferably constructive, please feel free to 
enclose them with your completed questionnaire. 


Incidentally, why not pop in an article for the magazine. 
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PROCEDURE LIBRARY 


Collected by John Andrew, Wellington. 


There has been a wealth of tips, utilities and short 
programs published over the years, and many of our newer 
members may not have come across them. John has made a 
collection of these, and has Kindly made them available to 
me to fill in the odd space that occurs from time to time 
at the end of articles. 


However, being the Christmas season, and Knowing that’ the 
best presents in the stocking are usually the small, 
inexpensive little parcels, I’ve thrown caution to the 
winds and made them all available in one go. We’1l1l worry 


about next year when it comes. Maybe readers will send in 
their own favourite utilities. 


But I digress. On with opening of the presents...... 


LEAT AE NDOW 
CAU 12/84 P114) 


The following Key definitions allow a text window to be 
defined in two key operations. Press Key £8 and move 


cursor to position required for top of text. Then press 
RETURN. 


10 xKEY8 Z=GET: VDU28,0, ?&309,2?&30A, VPOS+?&30B+1!M 
20 xKEY9 Z=VPOS+?&30B-1:VDU26,31,0,Z2!M 


see e ee ease 


(AU 5/85 P 43) 


To recall the contents of a function ke 
y type AUTO and 
press RETURN, then press the function Key. 


eee eee eee ame eee creer ans ease 


WALT STATE 
CAU 1/85 P 45 & 1/86 P51) 


A simple way to get the BBC to wait is to use the 
following statement : 


REPEAT: UNTIL GET=32 


This will make the BBC wait until the SPACEBAR is pressed. 


Lae & [ei 


CAU 12/84 P 43) 


The following listing defines a graphic window in the 
middle of a MODE 2 screen. 


10 REM Graphics window deno 
20 MODE 2 

30 VDU24, 200; 200; 900; 900; 
40 GCOL 0,129 

50 CLG 

60 GCOL 0,2 

70 MOVE 0,0 

80 MOVE1279,0 

90 PLOT 85,640,100 


CAU 1/85 P 45) 


MODE6: VDU19,0,4,0,0,0 
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Aa NEW LINE ON 
BASIC GAPS 
By Mike Shores, Auckland. 


If you do a fair amount of BASIC programming you sometimes 
feel the need to open up a bit of space at a particular 
point in a program (to insert a forgotten PROC, etc.). 
Using the RENUMBER facility only gives ten potential extra 
lines between existing lines. Alternatively if you opt 
for say ’RENUMBER- 100’ then you get a hundred potential 
extra lines between. 


Some BASIC utility ROMs provide an instruction which opens 
out a single gap of one hundred or so extra lines. The 
need to provide such a facility cheaply was recognised and 
catered for in the pages of Beeblet (September 1984, by 
Anton Erasmusson), wherein appeared a neat little 
assembler program for just this purpose. 


Being a devotee of custom made home-blown ROMs I wanted to 
incorporate this facility In my own BASIC toolkit ROM. 
Anton Erasmusson’s program used a ered function key to 
input the relevant line number; this didn’t suit my ROM 
purpose where I wanted to get a similar result by typing:- 


*XGAP <line number> <CRETURN>D 
e.g. *GAP 230 <RETURN> 


».-and get an instant result. 
So I modified Anton’s progran. 


The listing here can easily be placed in a ROM, or as it 
stands, stored on disc and responsive to the above 
instruction format. 


When a ’*’ command is encountered the operating system 
first offers it for action to each of the ROMs in turn. 
If none of them acts then it is offered to the current 
filing system (disc in our case, hopefully). Nil response 
here produces *Bad command’. In our case, once the 
accompanying program has been run then ’GAP’ will be 
present on disc as a machine code file; when x*GAP <nnn) is 
entered said GAP file will be *xLOADed and CALLed (xRUN). 
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Any instruction entered at the keyboard is stored in the 
command line buffer beginning at memory location &700. 
’GAP’ commences by checking (lines 360-520) to ensure that 
the correct number of numeric digits representing our 
specified line number is not exceeded; line 470 converts 
the ASCII digits to hex format. Lines 620-720 do a right 
justify shuffle with them if required. 


Lines 790-100 convert the five hex digits into a composite 
two byte integer variable stored in "result_hi’ and 
*result_lo’, ready for action by the last part of the 
program, courtesy A.Erasmusson. As in the original it is 
unable to cope with GOTO and GOQOSUB, should their 
references cross our gap: They will need to be changed by 
hand at the keyboard. 


Why not type in this little utility and see how useful it 


can be. And after that type out one of your programs and 
forward it to the Editor for inclusion next month. 


LO REM 2K KKK KKK KKK IKK KICK KKK KK KKK KK KK 


20 REM x GAP100 * 
30 REM KEKE ROKR KK KKK KK KK 
40 REM x 21/10/88 x 
50 REM x Created for ROM Cinitially x 
60 REM x in sideways RAM) to act x 
70 REM * on xGAP <line number> * 
80 REM x and insert a 100 line gap * 
90 REM x in a BASIC program. * 
100 REM x x 
110 REM x (c) M.W.Shores Oct. 1988 x 
£20 REM XXKR KKK KKK KR KKK KR IR IKK KK RK 


140 REM factor bytes plus factorhi bytes give the addition 

150 REM factors for each digit. e.g. for the 
*tens’=&0AC=decimal 10) 

160 REM for the ’hundreds’=&64(€=decimal 100) 

170 REM for the ’thousands’=S03E8(=decimal 1000) 

180 REM for the ’tenthousands’=&2710(C=decimal 10000) 

190 

200 *xKEY5 *TVO,1:MMO.3:M!N:S72000L. iM 


210 
220 print_it =&FA49: REM This is a print routine in 
OS ROM 
230 cmdBuff =&700 : REM Location of command line buffer 


....GAPIOO Contd >>> 
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240 


250 
260 


270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
220 
530 
540 
550 
360 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 


1G 


.GAP!1IO0O Contd >>> 


result_low=&72 : REM Reserve 2 bytes for 
resulting hex no. 

result _hi =&73 

digit =&7A : REM First of 5 digit buffer for 
line No. 


FOR pass%=0 TO 3 STEP 3 

P%=&900 

(OPT pass’ 

JMP entry 

.factor EQUD &OA64E810 

.factorhi EQUD &00000327 

\ 

-entry 

LDY #&FF 

LDX #0 

-loopl 

INY 

LDA cmdBuff,Y \ Get one chr after another 
CMP #13 \ End of command line? 
BEQ@ numbers_done 

CMP #48 \ Check if numeric 
BCC loop! 

CMP #58 

BCS loopl 

SEC :SBC#&30 

STA digit,X \ Store numeric digit 
INX 

CPX #6 

BE@ too_big \ 5 digits maximum 
BNE loop! \ do always 

\ 

-too_big 

JSR print_it 

EQUS"Line No. too big” 

EQUW &ODOD 

EQUB 0 

RTS 

\ 

-numbers_ done 

CPX #5 \ Less than 5 


he ok \ If yes digits need shift right 


LDY #4 
- loopy 


«»++GAPIOO Contd >>> 
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....GAPIOO Contd >>> 


670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 


860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 


LDA digit-1,¥Y \ Shift all 
STA digit,Y \ i right 
DEY 
BNE loopy 
STY digit \ Put zero in vacated byte 
BEQ numbers_done \ do always 
\ 
.ok 
LDA #0 \ 
STA result_low \ 
STA result_hi \ Clear result bytes 
\ 
LDY #5 \ 5 digits 
DEY 
LDA digit,Y \ Put ’units’ into 
STA result_low \ result location 
\ 
.addn_bytes 
LDX digit-1,Y \ X is value of digit being 
processed 
BEQ@ next _byte \ pass on if zero 
-loop_digit 
LDA factor-1,Y \ Add low bytes of ’tens’ 
CLC \ ’hundreds’ ’thousands’ 
ADC result_low \ or ’tenthousands’ to total 
STA result_low 
LDA factorhi-1!,Y \ Add high byte of 
ADC result_hi \ ’tens’ etc 
STA result_hi \ to total 
BMI too_big 
DEX \ Next time round 
BNE loop_digit \ for same addition 
-next_byte \ or digit completed? 
DEY \ Next digit 
BNE addn_bytes \ or all done? 
\ 
\ 
\ 
\  ERASMUSSON HEREON 
\ 
\ 
\ Here begins adaptation of 
\ Anton Erasmusson 9/84 
\ Program inserts a 100 line gap 
\ above a user specified line 


....-GAP1I0O0O Contd >>> 
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....GAP100 Contd >>> 


1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 


18 


\ 

\ 

\ 
LDA 
STA 
LDA 
STA 
TAX 
- loo 
LDY 
LDA 
CMP 
BCC 
BNE 
INY 
LDA 
CMP 
BCC 
BEQ 
.che 
CPX 
BEQ 
RTS 
set 
INX 


Some code swiped from Steve R 
See Beeblet p.!4 Sept.84 


&18 
&71 
#O 

&70 


Pp 
#1 


(&70),Y 
result_ 
flag 
check 


C&70),Y 
result_ 
flag 
flag 

ck 

#0 

set 


.flag 


CPX 


#0 


hi 


low 


BEQ nextline 
LDY#2 


LDA 
CLC 
ADC 
STA 
STA 
DEY 
LDA 
ADC 
STA 
STA 
.nex 
LDA 
LDY 
CLC 
ADC 
STA 


C€&70),Y 


#100 
€&70),Y 
result_ 


€&70),Y 
#0 
(&70),Y 
result_ 
tline 
&70 

#3 


C&70),Y 
&70 


low 


hi 


Beebliet 


-+.-GAPIOO Contd >>> 
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Name COptiomal).. cc ccc eee ee wwe ere ener anne nee nee ennene sean 
Address COptional)..... cece cece ee eee erence Ree eT rat ae a 
Are you a current financial member of the 

BBC Computer usergroup of NZ Inc. ..... eee cece cence ences . 
Have you ever been a financial member of the 

BBC Computer Usergroup of NZ Inc........... Pe ea ee ee are 
Are you a member of a local BBC Usergroup........... waleceary 
Are you a member of any other computer usergroup.......... 


Do you get adequate support for 
your BBC microcomputer SyYSteOM. cc eee e cece wee a nnn nncvvnse roars 


Do you want the BBC/Acorn Computer 
Usergroup of NZ Inc to continue.......... Son betass a lonsifee mtrieher’s 


If yes, please indicate a preference for the type of 
National Usergroup 


Continue but with BEEBLET every two months............... 
Continue but with something published every month........ 


Are you prepared to promise to supply at least one 
article/program for the magazine 
during the next twelve monthsS... cc cece csc cnn nacccncneccens 


If you believe the Usergroup cannot survive do you agree 
the remaining funds be 
given to a charity.....c. een vnes Sere eee ee ee eee 


or consumed in future publications 
of BEEBLET until exhausted... ccc cscs cacesivteswestevtvasas 


Address replies to: 
The Secretary 
BBC/Acorn Coaputer Usergroup NZ Inc. 
PO Box 9592 
WELLINGTON 


Name (Optional)... . cece cece cere eee rene reer renee eeerceees 
Address (Optional)........ Sle WA anaes ADA re OOS Ee RS ES 
Are you a current financial member of the 

BBC Computer usergroup of NZ Inc........ eS pala Bs ears Cian aise ears 
Have you ever been a financial member of the 

BBC Computer Usergroup of NZ Inc.............- 66 He ES wee Ks 
Are you a member of a local BBC Usergroup..........eec006. 
Are you a member of any other computer usergroup.......... 


Do you get adequate support for 
your BBC microcomputer SyStem........ cece ween nee 5a Saree cenenels. te 


Do you want the BBC/Acorn Computer 
Usergroup of NZ Ince to Cont inu@ ss. isis caw ee eee bok Sa aw Bee's 


If yes, please indicate a preference for the type of 
National Usergroup 


Continue but with BEEBLET every two months............00- 
Continue but with something published every month........ 


Are you prepared to promise to supply at least one 
article/program for the magazine 
during the next twelve monthsS........... ccc ces cescccces Pare 


If you believe the Usergroup cannot survive do you agree 
the remaining funds be 
given to a charity.....:....... ee ee ere CM ae Cea e is, + Bee 


or consumed in future publications 
of BEEBLET until exhausted............ ere eo Paya wa saa e 


Address replies to: 
The Secretary 
BBC/Acorn Computer Usergroup NZ Inc. 
PO Box 9592 
WELLINGTON 


Name (Optional)....... eee ee aCe eer a aaa wee aar tot ws es Sssas eh ode 
Address (Optional)......... ee eee ee eesene eae ee ae ee 


Are you a current financial mermber of the 
BBC Computer usergroup of NZ Inc..... ee eee ee eee ee 


Have you ever been a financial member of the 
BBC Computer Usergroup of NZ IncC..... cere ees eceee ie eee ee 


Are you a member of a local BBC Usergroup................. 
Are you a member of any other computer usSergroup.......... 


Do you get adequate support for 
your BBC microcomputer SySteEM..... ccc cee weene Sian axeu See aw tae eee 


Do you want the BBC/Acorn Computer 
Usergroup of NZ Inc to Continue... ccc ccc ccc cence rw ene ceee 


If yes, please indicate a preference for the type of 
National Usergroup 


Continue but with BEEBLET every two months..............6. 
Continue but with something published every month........ 


Are you prepared to promise to supply at least one 
article/program for the magazine 
during the next twelve months........cccccc ccs nccusecccecs 


If you believe the Usergroup cannot survive do you agree 
the remaining funds be 

GIVER “SO a GaP Lt Yee ew es te ewe Pee eae Be kee oe OLN 
or consumed in future publications 

of BEEBLET until exhausted............. 


Address replies to: 
The Secretary 
BBC/Acorn Computer Usergroup NZ Inc. 
PO Box 9592 
WELLINGTON 


BBC/ACORN COMPUTER USERGROUP OF NZ INC 


Name COptiomal rd... ceva c ec ever ere v anes ene enereeseens oe eee 
Address COptlomald. ccc wees env rene v cere cesrsereascesesaene 


Are you a current financial member of the 
BBC Computer usergroup of NZ Inc...... ere Tere Se eT ee ee ee 


Have you ever been a financial member of the 


BBC Computer Usergroup of NZ Inc...... cc een ee ecnes Peer ey ara 
Are you a member of a local BBC Usergroup......+...s.22065 
Are you a member of any other computer usergroup.......... 


Do you get adequate support for 
your BBC microcomputer SYStOM. cc. cc eee eee reer rere ee esanae 


Do you want the BBC/Acorn Computer 
Usergroup of NZ Inc to Continue... .... cee cece nce rece e ene 


If yes, please indicate a preference for the type of 
National Usergroup 


Continue but with BEEBLET every two months............0.. 
Continue but with something published every month........ 


Are you prepared to promise to supply at least one 
article/program for the magazine 
during the next twelve months.........-cccceeeee 5 eae Reeds 


If you believe the Usergroup cannot survive do you agree 
the remaining funds be 
given to a charity..........2. ee ae ee re eer ee ee 


or consumed in future publications 
of BEEBLET until exhausted... ... cc cece ee wee etme newer enens 
Address replies to: 
The Secretary 
BBC/Acorn Computer Usergroup NZ Inc. 
PO Box 9592 
WELLINGTON 


...-GAPIOO Contd >>> 


1560 BCC loop 

1570 INC &71 

1580 JMP loop 

1590 1 

1600 NEXT 

1610 xSAVE GAP 900 93C9 
1620 END 





REMOVING ANNOYING 
SCREEN COLOURS AND FERASHING 


FROM iI STS 
CAU 1/87 P 51) 


Key in CTRL & to restore normal colour to lists. 
CTRL Z will clear the screen. 
CTRL x will home the cursor. 


ADTN VIEW FUNCTION VS 
CAU 5/86 P187) 
To hold strings in the function keys when using VIEW Key 


in *FX228,1 (RETURN) and then typically *KEY O “text 
required” (RETURN) 


Ce  ] 


(AU) 11/85 P 51) 


When using nested loops (two or more) the routine can be 
speeded up by combining two NEXTs into NEXT, e.g. 
SO NEXT, 
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LABELS 


by Roger Gonin, Dunedin 


Ho Hum? No, not a bit of it. Quite the opposite in fact, 
when you get into it. Hum Ho, one might almost say. The 
target for today is all those who have to produce data 
clumps of a size, in a manner, at a frequency and in 
quantities which suggest/warrant the use of sticky labels. 
For instance: Club Secretaries mailing newsletters to 
members; home industrialists price-tagging batches of 
their products; nursery gardeners identifying a new crop 
of plants; all these and many more spring readily to mind. 


Given access to the appropriate equipment, the quickest, 
simplest and cheapest way to reproduce labels regularly is 
to photocopy on each occasion a series of ‘masters’ onto 
sheets of peel-off labels specially manufactured for the 
purpose. The sheets are typically sold in boxes of 100 and 
contain three ’columns’ of labels. Each column is either 
8, 11, or 12 labels long, i.e. each sheet contains 24, 33, 
or 36 labels depending on the label “’height’. 


That is where frustration begins for anyone wanting to 
produce labels by mechanical means. The ’8’s are 35mm high 
each (A4 with 6mm top and i6mm bottom waste), the ’11’s 
25mm CA4 with Smm & [2mm waste), and the ’12’s Cfoolscap 
exact) 13/12". 


Typewriters and printers either are fixed at or default to 
a paper-feed of 1/6 inch per line. Apart from the 
observation that that seemingly small fact will, because 
of the number of machines in service throughout the world, 
secure single-handedly the eventual triumph of the elegant 
Imperial Measure over the ungainly S.I. (metric system) 
and its inconvenient sizes, the present concern is that 6 
lines/inch matches none of the label heights quoted above 
with anything like adequate ’registration’ down the length 
of a page. Consequently interventions and artifices are 
needed, some of which are explored below. 


l. Desiderata and Criteria. 
I start from the standpoint of having several databases in 


*ViewStore’ files. From one of them I need to produce some 
200 fairly constant name & address labels once a _= month, 
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from another 26 ditto once a month, from another 35 ditto 
once a month, from another 70 ditto once a year with 
considerable variation from year to year. From a ’WordWise 
Plus’ file, 10 or 12 identical messages at a time, perhaps 
3 or 4 times a year for another One Who Must Be Obeyed 
(e.g. DANGER - GRAPEFRUIT MARMALADE NOVEMBER 1988!). 


I like to be able to sort my databases on surname, which 
means that titles + initials must either be in a separate 
field or follow the surname contrary to normal usage. I 
like textlines on a label to be in as big a pitch as 
possible, for legibility, and to be individually centred 
on the label, and I like the city name to be bold, 
double-width and underlined, especially if it’s Dunedin. 


I am fortunate in having access to a ’zoom’ photocopier of 
high quality and to supplies of a wide variety of Kinds of 
label all at ‘bulk’ prices but in convenient quantities. I 
am also fortunate enough to have had a_e sophisticated 
dot-matrix printer for a year and a half and think I am on 
the verge of understanding some of its control codes. The 
final ingredient in my mix is the Acorn Printer~-Driver 
Generator disc + manual. 


2. aper-fee 


Acorn created the PDG bearing in mind that some printers 
require an Initialization Code to be sent to them. Mine 
doesn’t, that is it has never asked me for one, but I have 
been able to use that Initialization Code provision to 
generate a Driver which when loaded inputs various other 
command-codes to the printer = margin-settings 
(i.e.line-lengths), font-selection, paper-feed distance, 
auto-centering via the printer’s built-in software, 
etc,etc. There is of course no limit to the number of 
Drivers one may create, each a slight refinement of the 
previous if wished and all capable of being loaded by 
f-key definitions to ring the changes quickly. 


My printer accepts paper-feed commands in 216ths of an 
inch; e.g.36/216 is the default, giving 6 lines/inch. 
However, even 216ths” don’t match mm in integers, which is 
essential throughout this exercise ~- nowhere will a 
fraction or decimal be effective. Nevertheless, 39/216ths“* 
does provide exactly 6 lines per 13/12" label over a whole 
page. The outcome of that is that the foolscap labels can 
be printed direct onto the labelsheets or onto a 
mastersheet for photocopying ’36-up’ @ 100% ratio. 
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For A4, by a delightful arithmetic coincidence, the best 
integer 7 £40" between copier reduction-ratio and 
paper-feed in 216ths" is 91% ratio and the same 39/216ths 
as for foolscap. (e.g. 90% & 40/216ths or 92% & 38/216ths 
both give bigger errors.) That combination reduces to 
near-enough 6 lines per 25mm, or an image 275,4mm_ long 
over a 275mm page. An error of less than 0.5mm is well 
within acceptable tolerance for this purpose. 


These two examples are probably the commonest 
requirements. I derived them amongst many others by 
setting up a spreadsheet to work out the various 


combinations of paperfeed and copier ratio. The tables 
below select the combinations which are closest to 100% on 
the copier, to minimize distortion in the copying process, 
while nonetheless giving a registration error not 
exceeding 0O,5mm over a page. Anyone wanting to use a 
particular number of lines on a particular label size need 
only read off the appropriate combination from the table. 


Eight 35mm labels occupy exactly 11° down the 297mm page. 
A paper-feed of 33/216ths” produces 9 lines per label, 
photocopying @ 100%, so one possibility available here is 
to have 5 odd lines blank and 4 evens with text, or 
vice-versa. 


Finally on this sub-topic, it is wise to be sure that the 
right paper-feed code is used. My printer has two codes, 
at first sight; one sets the general continuing condition 
of paper-feed (which is what we want to do), while the 
other is an ’immediate action’ which squirts the paper out 
and then dies. 


3. Bol Gouble-width, u 


My printer accepts ’Programmable Pitch & Highlighting’ 
commands under software control as well as from its 
illuminated waistcoat buttons. Having chosen what emphasis 
etc I wanted to produce and having unearthed its code, I 
used that code as the instruction to be sent by that 
particular Driver when it encounters a ‘'start Bold’ 
highlight code. Each Driver can handle only a_ limited 
number of codes in total, so one multi-function code is 
preferable to several single-function ones. 
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4, Centering. 


There are several options under this heading. The first is 
to include leading spaces in each relevant entry in the 
database (which term I use loosely here to include e.g. a 
word-processor file with suitable ’tabs’) so that each 
entry in it is centered ’by hand’ in its field. This 
method is the only one I have found whereby one can print 
three labels across the page in one ‘pass’ through’ the 
printer and have each centred as desired. 


Initial Keying into the database is made more tedious as 
each entry has to be counted as to its number of 
characters, so that the number of leading spaces can be 
calculated and Keyed for every one. Nevertheless !t has to 
be done only once, and diamond-wise. 


However, this method doesn’t work very well if one is 
putting two fields on one line - the first can be keyed 
into the database right-justified and the second 
left-justified, but the printout of them won’t necessarily 
be centered. The effect could be: 


Mr J.Bloggs-Cholmondeley for one, and 
Rear~Admiral P.Smyth for another, 


instead of 


Mr J.Bloggs-Cholmondeley 
Rear-Admiral P.Smyth 


Option 2 ts to utilize the printer’s inbuilt capability to 
auto-centre. But mine at least interprets that command to 
mean it to centre the whole line in relation to the edges 
of the paper, so printing three self-centred labels across 
by that method produces strange alignments. If the field 
concerned, e.g. perhaps for a Suburb name, is blank for 
one record then the suburbs of the other two appear across 
the two label-joins. 


One is thus forced to the conclusion that self-centering 
is not normally readily compatible with printing three 
labels across, whether using ViewStore’s Label Utility or 
its Report Utility. It can of course be achieved within a 
word-processor database or list by using three suitable 
tabs, but once set up that is extremely tedious to alter 
e.g. to delete or insert a record. 
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oe Pitch 


As indicated above, the largest pitch available is_ the 
preference, to minimize the risk of misreading/misdelivery 
etc. That will normally be 10 characters/inch. If, 
however, the fields are long, one may have to go to 
12-pitch or even 15-pitch in order to fit them into the 
width of the label line. Using 25mm-high labels, the 91% 
photocopyage reduction-effect will affect the apparent 
pitch as well as the apparent line-spacing. The other 
side of that coin, though, is that the apparent 
line-length in the database is increased. The extent of 
these changes is listed in the table below. 


6 ViewSto - (o) 


The Label utility already exists as standard, is 
relatively quick and easy to use, especially under’ the 
control of a xEXEC file with all the answers pre-set, and 
is the only way of getting more than one label across’ the 
page from Viewstore. But it is not very flexible and as 
far as I can discover it cannot be made to accept 
highlight codes for bold, underlining, etc. 


A Report file, however, can be customized, can also be 
*xEXEC controlled and can be fine-tuned whenever required. 
It can also contain blank lines for appearance if wanted, 
and can contain the full range of 9 highlight codes. It 
can also be created to produce two, three or four 
identical labels across the page, for instance, say, for 
the three carbon-copies of those hand-written documents 
which one has to issue regularly to the same people. 


Maybe several organizations share a club’s rooms and have 
to be billed every month on triplicate invoices - 
mechanically-produced labels speed up the preparation, 
save looking up each name and address, reduce error-risk 
and minimize late payment. Finally, a Report file can 
contain text common to all labels, so reducing the size 
needed for the database. 


ra rint u 


I have not so far mentioned the professional’s method. 
That is to use Crelatively expensive) fanfold/lineflow 
label sheets which fit onto a printer’s form-tractor. They 
can be of various heights and of I-, 2-, 3- or 4-label 
width. They do have one significant advantage over’ the 
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photocopy method, in that the label-heights are 
necessarily Imperial measurement, usually in exact 
multiples of 1/2" which is of course’ the standard 
separation of the edge-holes. Consequently one is assured 
of precise registration for the whole ’run’. 


I use them for my once-a-year operation mentioned above, 
where the list changes’ markedly every year and every 
print-out is a one-off. But in addition to the higher 
unit-cost of such labels one may have to be prepared to 
buy a box of 10,000 at a time unless one has access to 
someone else who uses them in large quantities and is 
prepared to sell a few at a time. 


Reverting to the photocopy method, one supplier quotes a 
retail price of $56.87 for both A4d 25mm and A4 35mm, which 
works out at respectively !.72c/ and 2.37c/label, and of 


$61.69 for foolscap, i.e., 1.7lc/label. All these 
calculations ignore the waste of the unused labels on the 
last sheet. But that apart, the best value for money is 


normally foolscap, which also provide the biggest 
image-size and hence the best legibility. Furthermore, if 
a Zoom photocopier is not avallable then foolscap + 
39/216ths” paper-~feed is the only hope of obtaining exact 
registration all down each page. 


Thus to achieve my aims I print out on ordinary fanfolad 
“A4", at single-label width, with a self-centering 
printer-driver acting on a ViewStore Report file. For the 
major application I pre-Select (from prior experience) 
slightly more than the first half of the file and print 
only that. Then I Select slightly more than the remainder 
and print that after turning the paper round in the 
printer, to save paper. The paper is then cut in half 
longitudinally and the second half can be turned round 
again to follow the first. 


The final stage in making the ’master’ is to chop the list 
every 12 names (¢ or 11 or 8 as applicable for the intended 
final label-sheet size) and then carefully to align every 
three half-pieces side by side, overlapping, with a daub 
of paste to hold them together. One needs particularly to 
watch horizontal spacing, to make sure that each column 
occupies exactly one-third of the label-sheet width. 


From what has been said above it will be apparent that one 
Can Convert an existing foolscap sheet of 12 labels into a 
*"master’ of 11 labels for A4 25mm moderately readily. 
First the 12th row of labels on each sheet must be cut off 
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and they are all pasted up in lis to make extra sheets. It 
is then necessary to widen at least one side of each 
sheet, and preferably both sides, by 8mm each. That Is 
best done by sellotaping (on the back) a spare piece of 
paper to the side and then trimming that off to leave 8mm 
attached. The widening is to allow for the subsequent 
narrowing which the photocopier will effect in its 91% 
reduction yet still maintaining the centre column of names 
in the centre of the Ad label sheet. 


Minor changes to a label, e.g. a change of address, can 
be accommodated quite easily by simply printing that 
single new label and pasting it over the old on the master 
sheet. 


onc 
The following Tables summarize the variables described 


above in case anyone else is tempted to venture down this 
track:- 


TABLE 1! ;: -~SHE 
Label-sheet size Foolscap A4 A4 
Labels across sheet 3 3 3 
Labels down sheet 12 ii 8 
Waste at top of label-~-sheet nil 6mm Smm 
Waste at foot of label~sheet nil 16mm 12mn 
Label ’height’ 13/12° 25mm 35mm 
Label width 72mm 70mm 7Oan 
a ee P. 27 >>> 
IST. G PF snd APIS 


CAU 12/83 P 81) 


Some programs refuse to respond to the LIST command due to 
codes used within the program. The following KEY 
definition will eliminate the unnecessary codes from a 
BASIC program. 


xKEY O FOR I%=PA. TO TOP: IF?I%=13 TH.N%=1%+3: 
N. ELSE IF?I%€32 THEN ?1%=O:N. ELSE N. M 
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T ‘ 


In each pair of figures the first 
Printer 


to set in the 


N 


ATION & REDUCTIO 


Driver and 


photocopier zoom ratio required: 


Sheet size 
Label height 


Lines/label 
| 


wan da oAa wt 


AB 


Pitch (Chars/inch) 


N 


Foolscap 


13/12° 
234:100 
117: 100 
78:100 
65: 90 
45:104 
39:100 
43: 99 
38: 98 
36: 92 
G R BE 
Foolscap 
10 142 15 
31 37 47 
31 37 46 
30 36 46 
30 36 45 
30 36 45 
29 35 44 
29 35 44 
29 35 43 
28 34 43 
28 34 42 
28 34 42 
28 33 42 
27 33 41 
27 33 41 
27 32 40 
26 32 40 
26 32 40 
26.31. -39 
26 31 39 
26 31 39 
25 30 38 


Beebie t 


the 


A4 
25mm 


217: 
112: 
77: 
56: 
43: 
39: 


AT 


98 
95 
92 
95 
99 
91 


i] 


) 


is the number of 216ths” 
second is the 


A4 
35mm 


298: 100 
149:100 
91:109 
73:102 
59:101 
46:108 


A4 (25 & 35mm) 


10 


12 


15 


DEWA Y. co TING 


By Mike Shores, Auckland. 


I have tended to use sideways RAM more extensively than 
most Beeb Bashers I think. It allows creation of ones’ 
own purpose-built ROM software, responding to a variety of 
**x’ commands, and also it can obviate the need = for 
continually plugging in and unplugging ROM chips. All you 
do is *LOAD the particular ROM image required at the time. 


Thus dozens of ROM images can be accessible from a_ single 
disc with never a ROM pin getting bent, and far less need 
to pay out for a ROM extension board (why didn’t Acorn put 
those extra ROM spaces on the Beeb circuit board from the 
beginning?!). 


The technique requires first that the ROM images be copied 
to disc: In searching magazines I found a number of 
programs to do this, and used them successfully. All such 
programs had characteristics in common, viz. 


ad Only a single ROM image is captured per run of the 
program. 

b) They néeded telling which ROM to copy. 

c) They needed telling the size of the ROM (8K or I6K). 


ad) Tedious and time consuming to run. 
e) Could not avoid occasional needless copying of the 
BASIC ROM. 


The accompanying program responds to ’x,’ and copies all 
ROM images, whether truly ROM or RAM equivalents, onto 
disc. It automatically establishes the size of the ROM, 
avoids copying the BASIC ROM, and copies only from those 
ROM slots actually containing ROMs. Each ROM image is 
given a different name, incorporating an identifying 
alphabetic character (a-n) corresponding to ROM slots 
C213. 


The whole task is performed cleanly with three key strokes 
and zero thought! (It could be done with less key strokes 
if the !BOOT file is set to run this program, ’$.,’). 


Now a brief description of the workings. These may be a 
little redundant due to the fairly full notations in the 
listing. However, OSBYTE 187 finds the ROM slot 


containing BASIC in lines 390-430, then a short series of 
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700 
710 
720 
730 
740 
750 
760 


770 
780 


790 
800 
810 


820 
830 
840 
850 
860 
870 


880 
890 
3900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 


1010 


1020 
1030 
1040 
1050 
1060 


ROMSPY Contd>>> 


BEQ way_point \ Is it ROM O ? 

\ 

\ KKKKKKKKKKEKK IS IT BASIC ROM ? 

\ 

CPX basrom 

BEQ dec_curr_rorm 

STX &FE30 \ (Operating System curr. ROM 
register) 

TXA: CLC 

ADC #&40 \ Gives ASCII value for 


appropriate alpha letter. 


STA rom_asciialpha 

\ 

\ kkk AK INCORPORATE ROM NUMBER INTO NAME FOR 

FILE SAVE 

\ 

STA which _rom 

\ 

\  KKKKKKKAKKKKK IS A ROM IN THE ROM SLOT? 

\ 

LDA &2A1,X \ Table of ROMs set up by Op 
Systea 

BEQ dec_curr_rom \ If O then no ROM in slot 

\ 

\ &KKKKKKKEKKKEK ADD 8K TO ADDRESS 

\ 

-up_8K 

LDA #&AO \ Look for (C) 8Kbytes up 

STA ref_add_hi 

\ 

\ kook KK DETECT BYTE 0 & °C)’ 

\ 

-detect_copyright 

LOA &8007 \ Get copyright offset 

\ from eighth byte of current 

ROM. 

STA ref_address \ Store in copyright offset 
location 

LDY #0 \ Indexed addressing. 

-read_cr_message 

LDA (ref_address),Y \ Read copyright message 

CMP cr_table,Y \ Does it match? 

BEQ thumbs_up \ Byte in question matches. 


-... ROMSPY Contd>>> 
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1070 


1080 
1090 
1100 


1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
12306 
1240 
1250 


1260 
1270 
1280 
1290 
1300 
13:10 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 


ROMSPY Contd>)> 


BNE its_16K \ Byte in question 
~ match. 

.thumbs_up 

INY \ Increment ’local 

CPY #4 \ Was this the las 


comparison? 
BNE read_cr_message 
BEQ its_8K 
\ 
-way_point 
LDA orig_rom \ get the original 
STA &FE30 \ OS current rom r 
JMP finish 
\ 
.its_16K 
LDA #ASC* 4" 
JMP record_len 
-its_8K 
LDA #ASC"2* 
\ 


doesn’t 


offset’ 
t 


rom number 
egister 


\ OOo ROM LENGTH IS RECORDED AS HIGH DIGIT 


OF EITHER 8K OR 16K BYTES 
\ 
.record_ len 
STA eight_or_sixteen 
JMP saver 
.text EQUS “SAVE x.” 
-which_rom BRK 
EQUS “ 2000+" 
-eight_or_sixteen BRK 
EQUS "000 DSCD 8000" 
EQUB &OD 
\ 
\ oka Ke PUT ROM IMAGE INTO MEMORY 
\ 
~saver 
LDY#O:STY&70:STY&72 
LDA#&80:STA&71 
LDA#&20:STA&73 
- loop 
LDAC&70),Y:STACK&72),Y 
INY:BNEloop 
INC&71:INC&73 
LDA&73:CMP#&60: BNEloop 
\ 


ROMSPY Contd>>> 
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1490 
1500 
1510 


1520 
1530 


1540 
1550 
1560 
1570 


1580 
1590 
1600 
1610 


1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 


1710 
1720 
1730 
1740 
1750 


1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 


ROMSPY Contd>>> 


\ kOe SAVE ROM 
\ 
LDA orig_rom \ 


STA &FE30 \ 
TXA:PHA \ 


LOX #text MOD 256 

LDY #text DIV 256 

JSR oscli 

PLA: TAX \ 


\ 
NV &KKKKKKKKAKKKKK WAS THIS 
\ 
BNE step_back \ 


\ 

N KKKKKKKKKKKKK FINISH 

\ 

.finish 

LDA#22 \ 
JSR osasci 

LDA#7 

JSR osasci 

LDA orig_roa \ 


STA &FE30 \ 
RTS \ 
\ 

»-Step_back 

JMP dec_curr_rom \ 


\ 

-blanker 

EQUD &01130616 \ 
EQUD &00000000 
EQUB &0OD \ 
\ 

-cr_table 

EQUB 0 

EQUS "(C)" 

] 

NEXT 

ENDPROC 


~~ 


IMAGE TO DISC 


Retrieve original ROM from 
memory 

Op. system current ROM reg. 
Put current ROM onto the 
stack 


Re-instate current ROM in X 
register from stack 


THE LAST (0) ROM ? 


If no, goto decrement ROM 
number 


VDU 22,7 = MODE 7 to end. 


Retrieve original ROM from 
memory 

Op. system current ROM reg. 
kkKKKK EXTT ROUTINE kxkxxxx 


Go round the whole loop 
again. 


VDU 22,6,19,1, 
VDU 0,0,0,0 
Line feed 


Ta ee a 
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AUTOMATIC UPDATE OF 
Ds i NT 


CAU 1/85 P 131) 


To make the disc file update the version number of your 
program use the following in the first line of your 
program. 


1 xKEY9OSA."P.numberA” }MQ=PA.+21:?7Q@=?Q+1: 
Q%=&B00+7&B09 :Q%713=?70:M 


Once this line has been activated press KEY f£9 to update 
the version and SAVE. 


Ee MOV 


To avoid the leading spaces in the print statement place a 
semicolon (;) just after the PRINT. e.g. PRINT;45. 


i V al N 


(AU 12/85 P 51 & 9/85 P 115) 


The following !BOOT file can be constructed to boot up 
VIEW in MODE 3 with green text. The procedure is 
equivalent to VDU 19,7,2,0,0,0. 


MODE3 

*xWORD 
xFX138,0,19 
*FX138,0,7 
kKFX138,0,2 
*FX138,0,0 
*FX138,0,0 
xFX138,0,0 
NEW 
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LISTING THE CONTENTS 
OF KEY DEFINE TIONS 


The program below will list the contents of the function 
Keys. 


10 REM Program to list userdefined keys 

20 REM SAVE “KEYIst” 

30 PRINT"“Character space remaining: "3; 255-?7&B10 
40 FORK%=0 TO 15 

50 IF ?(&BOO+K%)=?7&B10 THEN PRINT"Key “;K%" Undefined": 

GOTO180 

60 S&=?(&BOO+KS) +1 

70 EX=?&B10 

80 FOR I%=0O TO 15 

90 L%=?(&BOO+!I%) 

100 IF L%>S% AND L%&<E%X THEN E%=L*% 

110 NEXT I% 

120 PRINT"Key “;K%;" “3; 

130 FOR I%=0 TO E%-S*% 

140 L%=?C&BO0+S%+1%) 

150 IF L%>=&20 THEN PRINTCHRS(L%) ; 

160 NEXT I% 
170 PRINT 

180 NEXT K% 

190 END 


MEMBERBRSH LIP 


Membership of the National User Group is on payment of an 
annual subscription from April to March, which is %20.00 
for the 1988/9 year. A local branch levy may be payable 
which entitles attendance at meetings as detailed on the 
back page. Joining or renewing members get all the back 
issues of Beeblet for the current year ~ those joining 
after 1 October may have half the annual subscription 
waived and only receive Beeblet from 1 October. 
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YUSER OUF ETF 


AUCKLAND: -2nd and 3rd Wednesday of each month at Social 
Club, Auckland Hospital, Grafton Road at 7.30pm. 
Contact Theo Olifiers (Secy), phone 478-2153: Tony 
Krzyzewski (Pres), phone 267-2786. 
North Shore: -last Wednesday of the month, 7.30pm, Salvation 
Army Hall, Glenfield Road, Glenfield. 
Contact: Chris, Phone 419-0543 (wk). 


CHRISTCHURCH: -fortnightly workshops, Monday 6.30pm at Hagley 
High School. phone Michael 582-267. 

DUNEDINe ~first Thursday of the month. 
Contact: Martin McDowall, Phone 42-031 

HAWKES BAYs -2nd Sunday 2.30pm, Taradale Primary School. 


Contact Ron: 444-970, John: 445-729 (librarian), 
Major: 447-729, Mitch: 85-395. 


INVERCARGILL» ~Southland Education Centre, 70 Doon St. Contact 
Bob Evans, 73-050 or Lyndon McEntee (020) 87-365. 
NELSON: —second Monday of the month, 7.30pm, Nelson Baptist 


Church, Bridge St. Contact: Peter, Richmond 8975; 
Ken, Nelson 85-150; Richard, Richwond 8489. 
PALMERSTON NORTH:-Phone Brian Knowles 79-319. 


ROTORUA: ~first Tuesday of month, Science Lab at Rotorua 
Girls High School. Phone: Ian G5-583, Joan 81-536 
Tony 89-316. 

TAUPO: -every second Wednesday, 7.00pm. 
Contact: David 84-215 (Ch), G5-124 (wk). 

TAURANGA : -every second Wednesday. ph. Chris & Jane 65-076. 

TIMARU: -Phone Lloyd van der Krogt Timaru 61-412. 

TOKOROA: ~ist Friday of month, 7.30pm, Tokoroa High School. 


Contacts: Don Fraser, 68-813 or Graeme Robertson, 
65-346 Tokoroa. 


WAIKATO: -first Monday of the month, 7.30pm, Waikato Tech 

Institute. Ph. Alison or John, Morrinsville 6695. 

WELLINGTON: -usually second Wednesday, 7.30pm, Royal Society 
Lecture Theatre, Turnbull St, Thorndon. 

—Workshops: fourth Tuesday of month, other 


details: ph. Don 848-235 or Mike 785-437. 
OTHER CENTRES: ~let us know and ve will publish details here. 


BEEBLET 
PUBLISHED: monthly except January and mailed to financial members. 
CONTRIBUTIONS: ~most welcome. Listings should be sent in on tape 
or disc. (Tape ~- 2 copies, one at 300 baud please). Please 
include written explanation of listing; text and graphics only 
material welcome too. 
DEADLINES: For a particular issue, the last day for material 
is the fifteenth day of the month prior to publication. 
ADVERTISING: “No fixed charge is made for advertising. Supply 
camera ready, deadlines as above. 
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